﻿Module FilesExchanges

    Public Sub GetPackage(ByVal sFile As String, ByVal destination As String, ByVal sRemoteUrl As String)
        Dim wc As New Net.WebClient()
        Try
            wc.DownloadFile(sRemoteUrl + sFile, destination + "\\" + sFile)
            MsgBox("the following file : " + sRemoteUrl + sFile + vbCrLf + "has been download to: " + destination)
        Catch
            MsgBox("Unable to download file " + sRemoteUrl + sFile)
        End Try
    End Sub

End Module
